CU Amiga Super CD-ROM 16/CU Amiga Magazine's Super CD-ROM 16 (1997-10-16)(EMAP Images)(GB)[!][issue 1997-11].iso/CUCD/Utilities/AddressAssist/Install

Text File | 1997-01-29 | 13.8 KB | 510 lines

; **************************************************************************
; *****                                                                *****
; *****                   I N S T A L L - S C R I P T                  *****
; *****                                                                *****
; **************************************************************************
; $Id: Install,v 40.17 1995/09/13 21:19:40 schneida Exp schneida $
; **************************************************************************

(transcript "Installing AddressAssist release 3...")

; **************************************************************************
; **************************************************************************
; **************************************************************************

(set @default-dest "ram:")

(if ( = "deutsch" @language )
    (
    (set @defaultLang    1)
    (set @readme_txt      "liesmich.txt" )
    (set @readme_txt_info      "LiesMich.txt.info" )
    (set @read_readme      "sys:utilities/more liesmich.txt" )
    (set @PrefsDrawer    "Deutsch/Prefs" )
    (set @RexxDrawer    "Deutsch/Rexx" )
    (set @selectDest     "\nWählen Sie den Ort für die 'AddressAssist' Schublade:\n" )
    (set @selectDestHelp     "Das Install-Programm wird eine Schublade namens 'AddressAssist' am ausgewählten Ort erstellen und alle notwendigen Dateien dahin installieren." )
    (set @msgInstDest1     "Das Programm '" )
    (set @msgInstDest2      "' wird nach\n\n'" )
    (set @msgInstDest3     "' installiert.\n\nBitte folgen Sie den Anleitungen für eine benutzerdefinerte und korrekte Installation." )
    (set @installPrintAss     "\nSeit Version 3 verwendet AddressAssist (AA) eine externe Library für das Drucken.\nSoll die\n\n***'printAssist.library'***\n\ninstalliert ? (Dringend empfohlen!)\n" )
    (set @selectIcons     "\nEs sind 2 Arten von Piktogrammen verfügbar.\n\nBitte wählen Sie aus, welche zu installieren sind.\n" )
    (set @selectIconsHelp     "Wählen Sie den gewünschten Piktogrammtyp aus. Fall Sie MagicWB nicht kennen, installieren Sie einfach die Standardpiktogramme," )
    (set @choiceIcon1     "Standard: 4 farbige Piktogramme" )
    (set @choiceIcon2    "MagicWB: 8 farbige Piktogramme" )
    (set @installTextFld     "\nAddressAssist (AA) unterstützt mehrzeilige Textfelder für Bemerkungen. Um diese Felder benutzen zu können, benötigt AA das bereits installierte \n\n*** 'textfield.gadget' (© 1996 Mark Thomas) ***\n\nMöchten Sie Ihre alte Version durch eine Neuere ersetzen ???\n" )
    (set @selectLang     "\nDie eingebaute Sprache für die Benutzeroberfläche (GUI) und die Ballon-Hilfe ist English. Zusätzlich sind Übersetzungen in verschiedenen Sprachen erhältlich.\n\nBitte wählen Sie die zu installierenden Sprachen aus.\n" )
    (set @selectLangHelp     "Wählen Sie die gewünschte Sprache aus\nAchtung: Die locale.library V38 bzw. WB2.1 ist Voraussetzung für die Verwendung der Übersetzungen." )
    (set @instDeutsch    "Installiere deutsche Übersetzung..." )
    (set @instNorsk        "Installiere norwegische Übersetzung..." )
    (set @selectManual     "\nZur Zeit ist die Dokumentation für AA nur in Englisch verfügbar; die On-line verfügbare Ballon-Hilfe ist den anderen Sprachen vorhanden und sehr ausführlich gehalten.\n" )
    (set @selectManualHelp     "Wählen Sie die gewünschte Sprache aus." )
    (set @instEnglishDoc    "Installiere die englische Dokumentation..." )
    (set @instARexxEx    "\nSeit Version 3 besitzt AA eine ARexx-Schnittstelle mit zahlreichen datenbankspezifischen Funktionen.\n\nMöchten Sie einige Beispiel-Skripte installieren ???\n" )
    (set @instExampleDB     "\nSoll eine Beispieldatenbank installiert werden???\n" )
    (set @instPrefsEx     "\nSollen die AA spezifischen Voreinstellungsdateien sowie Beispieleinstellungen für die Druckausgabe und den ASCII Datenaustausch installiert werden???\n\n(Bei der ersten installation empfohlen.)\n" )
    (set @instPrefsExHelp     "Wahlen sie die Dateitypen aus." )
    (set @choicePrefs1    "AddressAssist Programmeinstellungen." )
    (set @choicePrefs2    "MUI Voreinstellungen für AA" )
    (set @choicePrefs3    "Beispiele Setup Drucker" )
    (set @choicePrefs4    "Beispiele Setup ASCII Datenaustausch" )
    (set @instPrefs1     "Installiere AddressAssist prefs..." )
    (set @instPrefs2     "Installiere MUI prefs..." )
    (set @instPrefs3     "Installiere Printer prefs..." )
    (set @instPrefs4     "Installiere ASCII Transfer prefs..." )
    (set @instReadMe     "Installiere LiesMich Datei" )
    )
    (
    (set @defaultLang    0)
    (set @readme_txt      "Readme.txt" )
    (set @readme_txt_info      "ReadMe.txt.info" )
    (set @read_readme      "sys:utilities/more Readme.txt" )
    (set @PrefsDrawer    "Prefs" )
    (set @RexxDrawer    "Rexx" )

    (set @selectDest     "Select destination path for 'AddressAssist' drawer:" )
    (set @selectDestHelp     "The Install-Program will create a directory called 'AddressAssist' into this destination directory and copy all necessary file to there." )
    (set @msgInstDest1     "Installing '" )
    (set @msgInstDest2      "' to\n\n'" )
    (set @msgInstDest3     "'\n\nPlease follow the instructions below for a correct and\nuser defined installation of AddressAssist." )
    (set @installPrintAss     "Since v3 AddressAssist (AA) uses an external library for printing.\nIf you like to print with AA, you should install \n***'printAssist.library'***\n\nWould you like to install / update ???" )
    (set @selectIcons     "There are two types of icon sets available for use with AddressAssist.\n\nWhich type of icons do you like to have installed ???" )
    (set @selectIconsHelp     "Select the icon type you like to work with. If you dont't know MagicWB icons, just, install the standard icons," )
    (set @choiceIcon1     "Standard Workbench 4 color icons" )
    (set @choiceIcon2    "Enhanced MagicWB 8 color icons" )
    (set @installTextFld     "AddressAssist (AA) sports multi-line text fields for remarks. To use these fields, AA needs the already installed \n\n*** 'textfield.gadget' (© 1995 Mark Thomas) ***\n\nWould you like to update ???" )
    (set @selectLang     "The standard language of AddressAssist's graphical user interface (GUI) is english. In addition there are translations available for several other languages.\n\nAmong the following languages, which do you want to install ?" )
    (set @selectLangHelp     "Select the desired for translation files for AddressAssist.\nNote: locale.library V38 (WB2.1+) is needed for localisation to work." )
    (set @instDeutsch    "Installing german catalog..." )
    (set @instNorsk        "Installing norsk catalog..." )
    (set @selectManual     "At the moment, full documentation of AddressAssist 3 (AA) is available only in english.\nHowever, as AA supports MUI's bubble help feature, there is extensive help available online in several languages." )
    (set @selectManualHelp     "Select the language of the documentation you like to install.\nNote: only english documentation is available for now." )
    (set @instEnglishDoc    "Installing english documentation..." )
    (set @instARexxEx    "Since release 3, AA sports an ARexx-Port with lots of database specific functions. Would you like to install some example-scripts" )
    (set @instExampleDB     "Would you like copy an example database file ???" )
    (set @instPrefsEx     "Copy AA specific Preferences files, including examples setups for Printing and ASCII Transfer ???\n\n(Recommended, if this is the first installation of AA)" )
    (set @instPrefsExHelp     "Select the desired files." )
    (set @choicePrefs1    "AddressAssist preferences" )
    (set @choicePrefs2    "MUI preferences for AA" )
    (set @choicePrefs3    "Example print setups" )
    (set @choicePrefs4    "Example ASCII Transfer setup" )
    (set @instPrefs1     "Installing AddressAssist prefs..." )
    (set @instPrefs2     "Installing MUI prefs..." )
    (set @instPrefs3     "Installing Printer prefs..." )
    (set @instPrefs4     "Installing ASCII Transfer prefs..." )
    (set @instReadMe     "Installing Readme files" )
    )
)


(complete 10)

(set @default-dest
    (askdir (prompt @selectDest )
    (help @selectDestHelp )
    (default @default-dest)
    )
)

(set @default-dest-root @default-dest )
(set @default-dest
    ( tackon @default-dest "AddressAssist" )
)

(message @msgInstDest1 @app-name @msgInstDest2 @default-dest @msgInstDest3 )

(makedir @default-dest
    (safe)
)

(set progname "AddressAssist")

(complete 20)

(copyfiles
    (source progname )
    (dest @default-dest)
    (newname "AddressAssist")
)


(copylib
    (prompt @installPrintAss )
    (help @askbool-help)
    (source "libs/printAssist.library" )
    (dest (tackon @default-dest "libs" ))
        (optional "oknodelete")
        (optional "askuser")
    (confirm)
)


(set icontype
    (askchoice
    (prompt @selectIcons )
    (choices @choiceIcon1 @choiceIcon2 )
    (help @selectIconsHelp )
    (default 0)
    )
)

(if ( = 0 icontype )
    (
        (set drawer_icon "icons/Standard.info")

        (set app_icon "icons/Standard/AddressAssist.info")
        (set data_icon "icons/Standard/AddressData.info")
        (set manual_icon "icons/Standard/Manual.info")
        (set rexx_icon "icons/Standard/Rexx.info")
        (set readme_icon "icons/Standard/ReadMe.txt.info")
    )
    (
        (set drawer_icon "icons/MWB.info")

        (set app_icon "icons/MWB/AddressAssist.info")
        (set data_icon "icons/MWB/AddressData.info")
        (set manual_icon "icons/MWB/Manual.info")
        (set rexx_icon "icons/MWB/Rexx.info")
        (set readme_icon "icons/MWB/ReadMe.txt.info")
    )
)

(copyfiles
    (source drawer_icon )
    (dest @default-dest-root)
    (newname "AddressAssist.info")
)

(copyfiles
    (source app_icon )
    (dest @default-dest)
    (newname "AddressAssist.info")
)

(copyfiles
    (source data_icon )
    (dest @default-dest)
    (newname "AddressData.info")
)

(copyfiles
    (source manual_icon )
    (dest @default-dest)
    (newname "Manual.info")
)

(copyfiles
    (source rexx_icon )
    (dest @default-dest)
    (newname "Rexx.info")
)

(copyfiles
    (source readme_icon )
    (dest @default-dest)
    (newname @readme_txt_info )
)


(if (NOT (exists "sys:classes/gadgets/textfield.gadget" ) )
(
    (if    (askbool
        (prompt @installTextFld )
        (help @askbool-help)
        )
        (
        (copyfiles
            (source "gadgets" )
            (dest (tackon @default-dest "gadgets" ))
            (pattern "#?" )
            )
        )
    )
)
(copylib
    (prompt @installTextFld )
    (help @askbool-help)
    (source "gadgets/textfield.gadget" )
    (dest "sys:classes/gadgets" )
        (optional "oknodelete")
        (optional "askuser")
    (confirm)
)
)


; **************************************************************************
; **************************************************************************
; **************************************************************************


(complete 50)


(set catalogs
    (askoptions
        (prompt @selectLang )
        (help    @selectLangHelp )
        (choices    "Deutsch"
                "Norsk"
        )
        (default @defaultLang )
    )
)

(set catalogpath (tackon @default-dest "Catalogs"))

(if (IN catalogs 0)
    (
    (working @instDeutsch )

    (if (NOT (exists (catalogpath)))
        (
        (makedir catalogpath)
        )
    )

    (copyfiles
        (source "catalogs/deutsch" )
        (dest (tackon @default-dest "catalogs/deutsch" ))
        (pattern "#?")
        (nogauge)
    )
    )
)

;(if (IN catalogs 1)
;    (
;    (working "Installing french catalog" )
;
;    (if (NOT (exists (catalogpath)))
;        (
;        (makedir catalogpath)
;        )
;    )
;    (copyfiles
;        (source "catalogs/français" )
;        (dest (tackon @default-dest "catalogs/français" ))
;        (pattern "#?")
;        (nogauge)
;    )
;    )
;)
;
;
;(if (IN catalogs 2)
;    (
;    (working @instNorsk )
;
;    (if (NOT (exists (catalogpath)))
;        (
;        (makedir catalogpath)
;        )
;    )
;    (copyfiles
;        (source "catalogs/italiano" )
;        (dest (tackon @default-dest "catalogs/italiano" ))
;        (pattern "#?")
;        (nogauge)
;    )
;    )
;)

(if (IN catalogs 1)
    (
    (working @instNorsk )

    (if (NOT (exists (catalogpath)))
        (
        (makedir catalogpath)
        )
    )
    (copyfiles
        (source "catalogs/norsk" )
        (dest (tackon @default-dest "catalogs/norsk" ))
        (pattern "#?")
        (nogauge)
    )
    )
)


(set document
    (askoptions
        (prompt @selectManual )
        (help    @selectManualHelp )
        (choices    "English"
        )
        (default 1)
    )
)

(if (IN document 0)
    (
    (working @instEnglishDoc )

    (copyfiles
    (source "Manual/" )
        (dest (tackon @default-dest "Manual" ))
        (pattern "#?")
        (infos)
    )
    )
)

;(if (IN document 1)
;    (
;    (working "Installing german documentation..." )
;
;    (copyfiles
;        (source "Manual/Deutsch" )
;        (dest (tackon @default-dest "Doc_Deutsch" ))
;        (pattern "#?")
;        (infos)
;    )
;    )
;)
;
;
;(if (IN document 2)
;    (
;    (working "Installing french documentation..." )
;
;    (copyfiles
;        (source "Manual/Français" )
;        (dest (tackon @default-dest "Doc_Français" ))
;        (pattern "#?")
;        (infos)
;    )
;    )
;)
;


(complete 70)

(if     (askbool
        (prompt @instARexxEx )
        (help @askbool-help)
    )
    (
    (copyfiles (
            (source @RexxDrawer )
            (dest (tackon @default-dest "Rexx" ))
            (pattern "#?" )
        )
    )
    )
)

(complete 80)

(if     (askbool
        (prompt @instExampleDB )
        (help @askbool-help)
    )
    (
    (copyfiles (
            (source "AddressData" )
            (dest @default-dest )
            (newname "AddressData" )
        )
    )
    (copyfiles (
            (source data_icon )
            (dest @default-dest )
            (newname "AddressData.info" )
        )
    )
    )
)

(complete 85)

(set prefsupdate
    (askoptions
        (prompt @instPrefsEx )
        (help    @instPrefsExHelp )
        (choices @choicePrefs1 @choicePrefs2 @choicePrefs3 @choicePrefs4 )
        (default 15)
    )
)

(if (IN prefsupdate 0)
    (
    (working @instPrefs1 )
    (copyfiles
        (source data_icon )
        (dest "envarc:AddressAssist" )
        (newname "def_AddressAssist.info" )
    )
    (copyfiles
        (source "Prefs/AddressAssist.prefs" )
        (dest (tackon @default-dest "Prefs" ))
        (newname "AddressAssist.prefs" )
    )
    (copyfiles
        (source "Prefs/ARexx.scripts" )
        (dest (tackon @default-dest "Prefs" ))
        (newname "ARexx.scripts" )
    )
    )
)


(if (IN prefsupdate 1)
    (
    (working @instPrefs2 )
    (copyfiles
        (source "MUI" )
        (dest "env:mui" )
        (pattern "#?" )
    )

    (copyfiles
        (source "MUI" )
        (dest "envarc:mui" )
        (pattern "#?" )
    )
    )
)

(if (IN prefsupdate 2)
    (
    (working @instPrefs3 )
    (copyfiles
        (source @PrefsDrawer )
        (dest (tackon @default-dest "Prefs" ))
        (pattern "#?.ppref" )
    )
    )
)


(if (IN prefsupdate 3)
    (
    (working @instPrefs4 )
    (copyfiles
        (source @PrefsDrawer )
        (dest (tackon @default-dest "Prefs" ))
        (pattern "#?.xpref" )
    )
    )
)


(complete 90)
(working @instReadMe )
(
    copyfiles(
        (source @readme_txt )
        (dest @default-dest )
        (newname @readme_txt )
        )
)
(run
    ( @read_readme )
)

(complete 100)